home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 December / CHIP Aralık 1996.iso / prog / backpack / demodata / dep_dir / shared.dxr / 00922_UpdateDEP.ls < prev    next >
Encoding:
Text File  |  1995-08-30  |  377 b   |  10 lines
  1. on exitFrame
  2.   global J, TWNS, TWNN, CASH, EXCF, CURR_S, K5, K2, SNAME, UNAME, F_TRAV, K7, ASKCAST
  3.   set the text of field "Dest" to K7
  4.   set K5 to value(line 3 of the text of cast ASKCAST)
  5.   set R to getAt(CURR_S, getLast(TWNS))
  6.   set CC to Infla(J, K5 / EXCF)
  7.   set the text of field "Cost" to "Price:" && string(integer(CC)) && R
  8.   set the text of field "Message" to K2
  9. end
  10.